fmap f (safeHead []) = fmap f Nothing = Nothing